home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / G-Games / (c)gc.d64 / slither duel 3.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  86 lines
  1. 0 REM*BY ROGER D BURGE,#2667,TORONTO PETUSERS GROUP,CANADA
  2. 10 GOSUB3850:PRINT"[147]":POKE53281,.:POKE53280,.
  3. 70 POKE54277,17:POKE54278,241
  4. 130 FORT=820TO860:READA:POKET,A:NEXT
  5. 190 FORT=861TO901:READA:POKET,A:NEXT
  6. 250 FORT=902TO935:READA:POKET,A:NEXT
  7. 310 LV=5:FA=56321:FB=FA-1
  8. 370 SX=16:GOSUB1570
  9. 430 SC=1484:BB=87
  10. 490 BA=81:BR=160:BS=32:H1=5:H2=5
  11. 550 LN=40:D1=LN:D2=-LN:C=54272:POKE781,1:POKE782,81:MU=902
  12. 610 SA=SC-10:SB=SA+20:F8=48:F7=41
  13. 670 GOSUB1750:J1=820:J2=861:JA=251:JB=252
  14. 730 SYSJ1:SYSJ2:F1=PEEK(FA)AND16:F2=PEEK(FB)ANDSX:D2=F7-PEEK(JA):D1=F7-PEEK(JB)
  15. 790 FORSWI=1TOLV:NEXT
  16. 850 SA=SA+D1:SYSMU
  17. 910 IFPEEK(SA)<>BSTHENPOKESA,214:POKESA+C,1:WI=1:T2=T2+1:GOTO2110
  18. 970 IFF2=SXORH1=.THEN1090
  19. 1030 POKESA,BS:H1=H1-1:POKE1958,H1+F8:GOTO1150
  20. 1090 POKESA,BA
  21. 1150 SB=SB+D2
  22. 1210 IFPEEK(SB)<>BSTHENPOKESB,214:POKESB+C,1:WI=2:T1=T1+1:GOTO2110
  23. 1270 IFF1=SXORH2=.THEN1450
  24. 1330 POKESB,BS:H2=H2-1:POKE1981,H2+F8
  25. 1390 GOTO1510
  26. 1450 POKESB,BB
  27. 1510 GOTO730
  28. 1570 GOSUB3070:PRINT"[158]PRESS FIRE BUTTON TO PLAY.
  29. 1630 F1[178][194](FA)[175]SX:F2[178][194](FB)[175]SX:[139]F1[178]SX[175]F2[178]SX[167]1630
  30. 1690 [141]3550:[142]
  31. 1750 [151]53281,1:[153]"LOADSLITHER DUEL 3":[151]53281,.
  32. 1810 [129]I[178]1064[164]1103:[151]I[170]C,13:[151]I,214:[151]I[170]840,214:[151]I[170]C[170]840,13:[130]
  33. 1870 [129]I[178]1104[164]1904[169]40:[151]I[170]C,13:[151]I,214:[151]I[170]39,214:[151]I[170]39[170]C,13:[130]
  34. 1930 [153]"(null) HOLES LEFT"H1;
  35. 1990 [153]"(null) HOLES LEFT";H2
  36. 2050 [142]
  37. 2110 [129]I[178].[164]99:[130]:[141]2890:[153]"LOADSYS             SLITHER DUEL 3             "
  38. 2170 [153]"GAME OVER!
  39. 2230 PRINT"PLAYER";
  40. 2290 IFWI=1THENPOKE1484,BB:POKE1484+C,1
  41. 2350 IFWI=2THENPOKE1484,BA:POKE1484+C,1
  42. 2410 PRINT"WINS":PRINT"SCORE:":PRINT"[209]="T1:PRINT"[215]="T2
  43. 2470 PRINT"PRESS FIRE BUTTON TO PLAY AGAIN."
  44. 2530 PRINT"PRESS _ TO QUIT.":PRINT"PRESS ^ TO START OVER.
  45. 2590 [151]198,.:F1[178][194](FA)[175]SX:F2[178][194](FB)[175]SX
  46. 2650 [139][194](197)[178]57[167]4990
  47. 2710 [139][194](197)[178]54[167][138]
  48. 2770 [139]F1[178]SX[175]F2[178]SX[167]2590
  49. 2830 [141]3850:[137]430
  50. 2890 W[178]54276:A[178]54277:H[178]54273
  51. 2950 [151]W,129:[151]A,15:[151]H,40:[151]C,200:[129]I[178]1[164]500:[130]
  52. 3010 [151]W,128:[151]A,.:[142]
  53. 3070 [153]"RETURNLOADSYS             SLITHER DUEL 3             "
  54. 3130 [153]"BY ROGER D BURGE":[153]"LISTFOR 2 PLAYERS ONLY
  55. 3190 PRINT"REQUIRES JOYSTICKS
  56. 3250 [153]"USE JOYSTICK TO MOVE YOUR SNAKE AROUND THE SCREEN.
  57. 3310 PRINT" IF YOU TOUCH A WALL, YOURSELF OR YOUR  OPPONENT'S SNAKE YOU'RE DEAD.
  58. 3370 [153]" PRESS THE FIRE BUTTON & YOU LEAVE A    HOLE IN YOUR SNAKE'S BODY.
  59. 3430 PRINT" YOU HAVE ONLY 5 HOLES PER GAME.":PRINT" JOYSTICK #1 CONTROLS SNAKE [215][215][215][215].
  60. 3490 [153]" JOYSTICK #2 CONTROLS SNAKE (null)(null)(null)(null).":[142]
  61. 3550 [153]"LOADSKILL LEVEL (1-4)?
  62. 3610 PRINT"(1 IS THE FASTEST)
  63. 3670 [161]S$:[139]S$[178]""[167]3670
  64. 3730 SK[178][197](S$):[139]SK[179]1[176]SK[177]4[167]3670
  65. 3790 LV[178](SK[171]1)[172]10:[142]
  66. 3850 SV[178]54272:[129]T[178]SV[164]SV[170]24:[151]T,.:[130]
  67. 3910 [151]SV[170]24,15:[151]SV[170]5,17:[151]SV[170]6,17
  68. 3970 [151]SV[170]1,28:[151]SV,.
  69. 4030 S1[178]54276:[151]S1[170]20,15:[142]
  70. 4090 [131]173,1,220,41,15
  71. 4150 [131]201,7,208,5,162,40,76,90,3
  72. 4210 [131]201,13,208,5,162,1,76,90,3
  73. 4270 [131]201,11,208,5,162,42,76,90,3
  74. 4330 [131]201,14,208,2,162,81
  75. 4390 [131]134,251,96
  76. 4450 [131]173,.,220,41,15
  77. 4510 [131]201,7,208,5,160,40,76,131,3
  78. 4570 [131]201,13,208,5,160,1,76,131,3
  79. 4630 [131]201,11,208,5,160,42,76,131,3
  80. 4690 [131]201,14,208,2,160,81
  81. 4750 [131]132,252,96
  82. 4810 [131]132,252
  83. 4870 [131]160,.,134,251,169,17,141,4,212,162,255,24,202,224,.,208,251,200,192
  84. 4930 [131]2,208,239,169,16,141,4,212,166,251,164,252,96
  85. 4990 [153]"    STOPWAITLOAD":[128]
  86.